home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Sample Code / Newton Sample Code 1.2 / Routing / SendCard-2 / Project Data < prev    next >
Encoding:
Text File  |  1994-02-28  |  353 b   |  14 lines  |  [TEXT/ttxt]
  1. constant kAppSymbol := '|sendCard:PIEDTS|;
  2. constant kMyItemIDRoutingSymbol := '|ID:sendCard:PIEDTS|;
  3. constant kMyTotalItemsRoutingSymbol := '|total:sendCard:PIEDTS|;
  4.  
  5.  
  6. installScript := func(partFrame)
  7. begin
  8.    routing.(kAppSymbol) := partFrame.theForm.myRoutingFrame ;
  9. end;
  10.  
  11. removeScript := func(partFrame)
  12. begin
  13.    RemoveSlot(routing, kAppSymbol);
  14. end;